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Function HBar {
 
    [CmdletBinding()]
    [OutputType([byte[]])]
    param(
        [Parameter(Mandatory=$true)] [String]$H3
    )
    $H2 = New-Object -TypeName byte[] -ArgumentList ($H3.Length / 2)
    for ($i = 0; $i -lt $H3.Length; $i += 2) {
        $H2[$i / 2] = [Convert]::ToByte($H3.Substring($i, 2), 16)
    }

    return [byte[]]$H2
}
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